home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The School House• / Astromacronomer ••• / BASIC Runtime / BASIC Runtime.rsrc / CODE_28.txt < prev    next >
Text File  |  1986-09-30  |  6KB  |  109 lines
  1. # near model CODE resource
  2. # jump table entries: 4544-4545 (2 of them)
  3. export_568:
  4. 00000000  526D FE8E                addq.w     [A5 - 0x172], 1
  5. 00000004  6114                     bsr        +0x16 /* 0000001A */
  6. 00000006  49F3 1000                lea.l      A4, [A3 + D1.w]
  7. 0000000A  4EAD 11BA                jsr        [A5 + 0x11BA /* export_563 */]
  8. 0000000E  4214                     clr.b      [A4]
  9. 00000010  4EAD 118A                jsr        [A5 + 0x118A /* export_557 */]
  10. 00000014  536D FE8E                subq.w     [A5 - 0x172], 1
  11. 00000018  4E75                     rts
  12. fn0000001A:
  13. 0000001A  4EAD 01B2                jsr        [A5 + 0x1B2 /* export_50 */]
  14. 0000001E  640A                     bcc        +0xC /* 0000002A */
  15. 00000020  42AD ECAA                clr.l      [A5 - 0x1356]
  16. 00000024  1B7C 0004 ECFB           move.b     [A5 - 0x1305], 0x4
  17. label0000002A:
  18. 0000002A  49ED F1EC                lea.l      A4, [A5 - 0xE14]
  19. 0000002E  7020                     moveq.l    D0, 0x20
  20. 00000030  142D ECA6                move.b     D2, [A5 - 0x135A]
  21. 00000034  6750                     beq        +0x52 /* 00000086 */
  22. 00000036  6A02                     bpl        +0x4 /* 0000003A */
  23. 00000038  702D                     moveq.l    D0, 0x2D
  24. label0000003A:
  25. 0000003A  18C0                     move.b     [A4]+, D0
  26. 0000003C  240C                     move.l     D2, A4
  27. 0000003E  47ED ECA7                lea.l      A3, [A5 - 0x1359]
  28. 00000042  7200                     moveq.l    D1, 0x00
  29. 00000044  122D ECFB                move.b     D1, [A5 - 0x1305]
  30. 00000048  5541                     subq.w     D1, 2
  31. label0000004A:
  32. 0000004A  101B                     move.b     D0, [A3]+
  33. 0000004C  1E00                     move.b     D7, D0
  34. 0000004E  E808                     lsr        D0.b, 4
  35. 00000050  6702                     beq        +0x4 /* 00000054 */
  36. 00000052  240C                     move.l     D2, A4
  37. label00000054:
  38. 00000054  0600 0030                addi.b     D0, 0x30 /* '0' */
  39. 00000058  18C0                     move.b     [A4]+, D0
  40. 0000005A  1007                     move.b     D0, D7
  41. 0000005C  0200 000F                andi.b     D0, 0xF
  42. 00000060  6702                     beq        +0x4 /* 00000064 */
  43. 00000062  240C                     move.l     D2, A4
  44. label00000064:
  45. 00000064  0600 0030                addi.b     D0, 0x30 /* '0' */
  46. 00000068  18C0                     move.b     [A4]+, D0
  47. 0000006A  51C9 FFDE                dbf        D1, -0x24 /* 0000004A */
  48. 0000006E  47ED F1EC                lea.l      A3, [A5 - 0xE14]
  49. 00000072  948B                     sub.l      D2, A3
  50. 00000074  2202                     move.l     D1, D2
  51. 00000076  142D ECA6                move.b     D2, [A5 - 0x135A]
  52. 0000007A  0242 007F                andi.w     D2, 0x7F
  53. 0000007E  0442 0040                subi.w     D2, 0x40 /* '@' */
  54. 00000082  9441                     sub.w      D2, D1
  55. 00000084  600A                     bra        +0xC /* 00000090 */
  56. label00000086:
  57. 00000086  7200                     moveq.l    D1, 0x00
  58. 00000088  7400                     moveq.l    D2, 0x00
  59. 0000008A  264C                     movea.l    A3, A4
  60. 0000008C  16BC 0030                move.b     [A3], 0x30 /* '0' */
  61. label00000090:
  62. 00000090  5241                     addq.w     D1, 1
  63. 00000092  4E75                     rts
  64. export_569:
  65. 00000094  526D FE8E                addq.w     [A5 - 0x172], 1
  66. 00000098  2F08                     move.l     -[A7], A0
  67. 0000009A  2B4F F1E8                move.l     [A5 - 0xE18], A7
  68. 0000009E  162D ECFB                move.b     D3, [A5 - 0x1305]
  69. 000000A2  4EAD 01CA                jsr        [A5 + 0x1CA /* export_53 */]
  70. 000000A6  486D F1F4                pea.l      [A5 - 0xE0C]
  71. 000000AA  2F2D ECAA                move.l     -[A7], [A5 - 0x1356]
  72. 000000AE  2F2D ECA6                move.l     -[A7], [A5 - 0x135A]
  73. 000000B2  526D FE7A                addq.w     [A5 - 0x186], 1
  74. 000000B6  4EAD 11CA                jsr        [A5 + 0x11CA /* export_565 */]
  75. 000000BA  536D FE7A                subq.w     [A5 - 0x186], 1
  76. 000000BE  DEFC 000C                add.w      A7, 0xC
  77. 000000C2  1B43 ECFB                move.b     [A5 - 0x1305], D3
  78. 000000C6  43ED F1F4                lea.l      A1, [A5 - 0xE0C]
  79. 000000CA  3019                     move.w     D0, [A1]+
  80. 000000CC  3219                     move.w     D1, [A1]+
  81. 000000CE  0C40 002D                cmpi.w     D0, 0x2D /* '-' */
  82. 000000D2  6604                     bne        +0x6 /* 000000D8 */
  83. 000000D4  0001 0080                ori.b      D1, 0x80
  84. label000000D8:
  85. 000000D8  5489                     addq.l     A1, 2
  86. 000000DA  2251                     movea.l    A1, [A1]
  87. 000000DC  45ED ECA6                lea.l      A2, [A5 - 0x135A]
  88. 000000E0  4292                     clr.l      [A2]
  89. 000000E2  42AA 0004                clr.l      [A2 + 0x4]
  90. 000000E6  0601 0040                addi.b     D1, 0x40 /* '@' */
  91. 000000EA  1481                     move.b     [A2], D1
  92. 000000EC  7200                     moveq.l    D1, 0x00
  93. label000000EE:
  94. 000000EE  1019                     move.b     D0, [A1]+
  95. 000000F0  6714                     beq        +0x16 /* 00000106 */
  96. 000000F2  0200 000F                andi.b     D0, 0xF
  97. 000000F6  5241                     addq.w     D1, 1
  98. 000000F8  0801 0000                btst.b     D1, 0x0
  99. 000000FC  6704                     beq        +0x6 /* 00000102 */
  100. 000000FE  528A                     addq.l     A2, 1
  101. 00000100  E908                     lsl        D0.b, 4
  102. label00000102:
  103. 00000102  8112                     or.b       [A2], D0
  104. 00000104  60E8                     bra        -0x16 /* 000000EE */
  105. label00000106:
  106. 00000106  205F                     movea.l    A0, [A7]+
  107. 00000108  536D FE8E                subq.w     [A5 - 0x172], 1
  108. 0000010C  4E75                     rts
  109.